demand include-file
supplied-by
: included ( c-addr u -- )
	r/o open-file abort" no such file" include-file ;
